home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / obrn-a_1.5_up3.lha / src_upd3.lha / source / obumprev / OBumpRevMsg.mod next >
Encoding:
Text File  |  1995-03-13  |  4.5 KB  |  135 lines
  1. <* STANDARD- *> <* MAIN- *> <* INITIALISE- *>
  2.  
  3. MODULE OBumpRevMsg;
  4. (****************************************************************
  5.  
  6.    This file was created automatically by `FlexCat 1.5'
  7.    Do NOT edit by hand!
  8.    Oberon-A source description C 1994 by Albert Weinert
  9.    Using with Oberon-A Interfaces for AmigaOS Release 3.1
  10.    Modified for Oberon-A 1.5 by Frank Copeland
  11.  
  12.    Application: OBumpRevMsg
  13.    Language   : "english"
  14.    Version    : 1
  15.    Description: OBERON-A:Catalogs/OBumpRev.cd
  16.  
  17. ****************************************************************)
  18.  
  19. IMPORT
  20.   lo := Locale, e := Exec, u := Utility, y := SYSTEM;
  21.  
  22. CONST
  23.   builtinlanguage = "english";
  24.   version = 1;
  25.  
  26. CONST
  27.   msgCouldNotCreate* = 0;
  28.   msgCouldNotCreateModRev* = 1;
  29.   msgCreated* = 2;
  30.   msgCouldNotWriteModRev* = 3;
  31.   msgCouldNotWriteLog* = 4;
  32.   msgCouldNotClose* = 5;
  33.   msgBumpedTo* = 6;
  34.   msgAuthor* = 7;
  35.   msgLog* = 8;
  36.   msgTemplate* = 9;
  37.   msgRevModContents* = 10;
  38.   msgCopyright* = 11;
  39.  
  40. TYPE
  41.   AppString = RECORD;
  42.      id  : LONGINT;
  43.      str : e.LSTRPTR;
  44.   END;
  45.   AppStringArray = ARRAY 12 OF AppString;
  46.  
  47. VAR
  48.   AppStrings : AppStringArray;
  49.   catalog : lo.CatalogPtr;
  50.  
  51.   PROCEDURE SetStrings;
  52.     BEGIN
  53.       AppStrings[0].id := msgCouldNotCreate; AppStrings[0].str := y.ADR( "%s: Could not create %s%s.\n" );
  54.       AppStrings[1].id := msgCouldNotCreateModRev; AppStrings[1].str := y.ADR( "%s: Could not create the revision module.\n" );
  55.       AppStrings[2].id := msgCreated; AppStrings[2].str := y.ADR( "%s: Created %s%s.\n" );
  56.       AppStrings[3].id := msgCouldNotWriteModRev; AppStrings[3].str := y.ADR( "%s: Could not write revision module.\n" );
  57.       AppStrings[4].id := msgCouldNotWriteLog; AppStrings[4].str := y.ADR( "%s: Could not write to the revision log file.\n" );
  58.       AppStrings[5].id := msgCouldNotClose; AppStrings[5].str := y.ADR( "%s: Could not close a file.\n" );
  59.       AppStrings[6].id := msgBumpedTo; AppStrings[6].str := y.ADR( "%s: Bumped %s to %ld.%ld\n" );
  60.       AppStrings[7].id := msgAuthor; AppStrings[7].str := y.ADR( "AUTHOR" );
  61.       AppStrings[8].id := msgLog; AppStrings[8].str := y.ADR( "MODULE: %s %ld.%ld  DATE: %ld.%ld.%ld  FILE SIZE: %ld bytes  AUTHOR: %s\n" );
  62.       AppStrings[9].id := msgTemplate; AppStrings[9].str := y.ADR( "MODULE/A,VERSION/N,REVISION/N,LOGEXT/K,REVMODEXT/K,MODEXT/K,NOLOG/S,DATEONLY/S" );
  63.       AppStrings[10].id := msgRevModContents; AppStrings[10].str := y.ADR( "(*\n"
  64.     " *\tThis file was automaticly generated by %s.\n"
  65.     " *\tDO NOT EDIT THIS FILE!\n"
  66.     " *)\n\n"
  67.     "<* STANDARD- *> <* INITIALISE- *> <* MAIN- *>\n\n"
  68.     "MODULE\t%sRev;\n\n"
  69.     "IMPORT\tSYSTEM;\n\n"
  70.     "CONST"
  71.     "\tversion\t*= %ld;\n"
  72.     "\trevision*= %ld;\n"
  73.     "\tdate\t*= \"%ld.%ld.%ld\";\n"
  74.     "\tvers\t*= \"%s %ld.%ld\";\n"
  75.     "\tvString\t*= \"%s %ld.%ld (%ld.%ld.%ld)\\r\\n\";\n"
  76.     "\tversTag\t*= \"$VER: %s %ld.%ld (%ld.%ld.%ld)\\r\\n\";\n\n"
  77.     "BEGIN\t(* Make sure that version string is visible *)\n"
  78.     "\tSYSTEM.PUTREG (0, SYSTEM.ADR (versTag))\n"
  79.     "END\t%sRev.\n" );
  80.       AppStrings[11].id := msgCopyright; AppStrings[11].str := y.ADR( "%s, Copyright © 1994 Johan Ferreira.\n"
  81.     "OBumpRev (Bumps Oberon-A module revisions) comes with\n"
  82.     "ABSOLUTELY NO WARRANTY.  This is free software, and you\n"
  83.     "are welcome to redistribute it under certain conditions.\n"
  84.     "See OBumpRev.guide for details.\n"
  85.     "\n" );
  86.     END SetStrings;
  87.  
  88.   PROCEDURE CloseCatalog*();
  89.     BEGIN
  90.       IF catalog # NIL THEN lo.CloseCatalog (catalog); catalog:=NIL END;
  91.    END CloseCatalog;
  92.  
  93.   PROCEDURE OpenCatalog*(loc:lo.LocalePtr; language:ARRAY OF CHAR);
  94.     VAR Tag : ARRAY 4 OF u.TagItem;
  95.     BEGIN
  96.       CloseCatalog();
  97.       IF (catalog = NIL) & (lo.base # NIL) THEN
  98.         Tag[0].tag := lo.builtInLanguage; Tag[0].data := y.ADR( builtinlanguage );
  99.         Tag[1].tag := u.ignore;           Tag[1].data := y.ADR( language );
  100.         Tag[2].tag := lo.version;         Tag[2].data := version;
  101.         Tag[3].tag := u.done;
  102.  
  103.         IF language # "" THEN
  104.           Tag[1].tag:= lo.language;
  105.         END;
  106.         catalog := lo.OpenCatalogA (loc, "OBumpRevMsg.catalog", Tag);
  107.       END;
  108.     END OpenCatalog;
  109.  
  110.   PROCEDURE GetString* (num: LONGINT): e.LSTRPTR;
  111.     VAR
  112.       i: LONGINT;
  113.       default: e.LSTRPTR;
  114.     BEGIN
  115.       i := 0; WHILE (i < 12) & (AppStrings[i].id # num) DO INC (i) END;
  116.  
  117.       IF i # 12 THEN
  118.         default := AppStrings[i].str;
  119.       ELSE
  120.         default := NIL;
  121.       END;
  122.  
  123.       IF catalog # NIL THEN
  124.         RETURN lo.GetCatalogStr (catalog, num, default^);
  125.       ELSE
  126.         RETURN default;
  127.       END;
  128.     END GetString;
  129.  
  130. BEGIN
  131.   catalog := NIL;
  132.   SetStrings;
  133. END OBumpRevMsg.
  134.  
  135.